Libris Britannia 4/science library(b).zip/science library(b)/PROGRAMM/DB_CLIPP/0669.ZIP/DBTRANS.PRG

Text File | 1986-11-10 | 584b | 30 lines

*DBTRANS.PRG
SET TALK OFF
SET BELL OFF
SET SAFETY OFF
SET EXACT OFF
TRANS=.T.
DO WHIL TRANS
@ 0,0 CLEA
@ 0,15 SAY "File Transfer Activated.  Press any key to Abort."
RESP=0
DO WHIL RESP=0
RESP=INKEY()
IF SUBS(TIME(),4,2)="59"
@ ROW(),0 CLEA
@ ROW()+1,15 SAY "File Transfer Activated.  Press any key to Abort."
ENDI
IF SUBS(TIME(),1,5)="23:59"
@ 0,0 CLEA
DO CUTOUT.PRG
!PROCOMM/FUPLOAD
DO RECEIVE.PRG
@ 0,0 CLEA
@ 0,10 SAY "File Transfer completed on "+DATE()+" at "+TIME()+"."
@ 1,15 SAY "Press any key to continue."
ENDI
IF INKEY()>0
RETU
ENDI
ENDD
ENDD